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EDTSTICLRAUD = flush journal file 1b-5e sen- 130% 9}: 3¢'¢ VAX=11 $-32 V ey 
-Sep-1 DISK$V nen TER: cb Ose TICLRAUD.BLI; a 1 


Brits "EDTSTICLRAUD = flush journal file’ 
MODULE EDTSTICLRAUD ( 


! Flush joyrnet file 
DENT = ‘v04-000' 
= 


ile: TICLRAUD.BLI Edit: JBS1012 


——>PD 


BEGIN 
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'e COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


te THIS fe Yor IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
; ACCORDANCE W T TERMS OF SUCH ie ae WITH_THE 
:@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- pn Al NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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ABSTRACT: 
Flush journal file. 
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ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 
MODIFIED BY: 


1-001 - Original. DJS 18-FEB-1981. This module was created “% 
extracti ng routine EDTS$$TI _FLUSHJ 9b from module TINPU 
= Regularize headers. JBS~11-Mar- 
Add parameter to routine and flag t egcerd, y =wut-1981 
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- 
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ope =" flag compatible with er, : 

9 bug n control C processing. ie ag 
us nue to debug control C processing. d i bee-1981 
Revise control C data names. ec-1981 
Use two words for control C eyater Sas 0-Dec-1981 
Decrease stack usage. JBS 2/7- 

We must write O-length aA ny rec Hef JBS yin orihen 
We must not write a record unless it has been marked valid. JBS rye ke (1 
Use symbols instead of magic numbers in control C journaling. JBS 24-May-1982 
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MASTER CEDT SRCSTICLRAUD.BLI4” (2) 


1 Bliss-32 V4.0-74 
VMS 


“1986 $ 


L 8 
16-Sep 
14-Sep 


: NOVALUE; 


journal file 
EQUIRE ‘EDTSRC:TRAROUNAM'; 
EDTSSTI_FLUSHJOUF | 
In the routine 


ORWARD ROUTINE 
EXTERNAL REFERENCES: 
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EQUATED SYMBOLS: 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 
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AUD - flush journal file 19° 
LUSHJOUFI = flush journal file 14-Sep-19 


SBTTL *EDTSSTI_FLUSHJOUF 1 
GLOBAL ROUTINE EDTSSTI_FLUSHJOUFI ( 
RD_TYPE 


RECO 
) : NOVALUE = 


ee 
FUNCTIONAL DESCRIPTION: 


8 
Sep-19 


- flush journal file’ 


VA 
I 


32 
D R 


! Flush journal file 
! text or control C 


This routine writes either a text record or a control C record. 


A text record is taken from the journal buffer. 


A control C record 


consists of the count of the number of times we tested for control C 
and didn't find it. Upon writing either record the control c counter 
is cleared; thus it records the number of tests since the last journal 


record. 


FORMAL PARAMETERS: 


RECORD_TYPE ASCII ‘T’ for a text record, ASCII 'C' for a control C record. 


: IMPLICIT INPUTS: 


EDTS$C_CC_CNT1_HI 
EDT$$G_JOO_VALTD 


IMPLICIT OUTPUTS: 


EDT$$G_TIN_OBUF POS 
EDT$$G_JOU- VALID 


ROUTINE VALUE: 


NONE 


SIDE EFFECTS: 


BEGIN 


a“ ROUTINE 
EDTSSJOU_PUTREC; 


Loc 


N_OBUF : VECTOR (256, BYTE), 
N”OBUF POS, 


AL 
JOURNAL_RECORD : VECTOR CCC_REC_SIZE, BYTE); 


utput buffer 
ournal output buffer 


' Number of control C tests 
! High half of the above 
! 1 = journal record is valid 


! For building the control C record 


ys sOereg Pa 
:CEDT.SRCITICLRAUD.BLI;1 
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n 8 
ush journal file Jo~se- 138% O}: 4:4 VAX-11 Bliss-32 8 00006 Page 5 | 
I = flush journal file 14-Sep- 4 124:4 DISKSVMSMASTER: CEDT.SRCJTICLRAUD.BLI; (3) | 
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'¢ 
} Make sure the control C counter is reasonable. 


ASSERT (.EDT$$G_CC_CNT1_LO LEQ CC_CTR_MAX); 
ASSERT (.EDTS$G-CC~CNT1-HI LEQ CC7CTRTMAX): 


seas: te »RECORD_TYPE OF 


' Output a text record 


T (.EDTS$$G_TIN_OBUFPOS LEQ $36); 
ASSERT (.EDTSS$G_TIN_OBUFPOS GEQ 0); 


IF (.EDTS$G_TIN_OBUFPOS GTR 0) THEN ASSERT (.EDTS$G_JOU_VALID); 
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-PSECT _EDTSCODE.NOWRT, SHR, PIC,2 
OOFC 00000 ~-ENTRY EDTSSTI_FLUSHJOUFI, Save R2,R3.R4,R5,R6,R7 ; 0665 


0 : 

6 0 IF_ .EDTS$G_JOU_VALID : 
° 8 THEN : 
? Q74 C (EDTS$T_TIN_OBUF CO], .EDT$$G_TIN_OBUFPOS); : 
7 0 EDT$$G_TIN_OBUFPOS = 0; : 
? 074 EDT$$G_JOU_VALID = 0; : 
7 074 END; ‘ 
? 074 : 
? 074 END; ; 
7 074 : 
7 074 Czc°c') : ! Output a control C record ‘ 
? 074 BEGIN : 
074 JOURNAL _RECORD £0} = JOU REC ESC; ! tee as non-text record ‘ 

80 075 JOURNAL RECORD (1) = CC_REC_ FLAG; ! Control C record : 
8 075 EDTSSCPY_MEM ge EDTS$G_CC_CNT1_LO, JOURNAL_RECORD fe): ‘ 
8 075 EDTSSCPY_MEM (2, EDTS$G_CC_CNT1_HI, JOURNAL_RECORD (4)); : 
8 Boe Fetes JOU_PUTREC (JOURNAC_RECORD“COS, CC_REC-SIZE); ‘ 
075 : 

075 COTHERWISE) : : 

075 ASSERT (0); : 

ore TES; : 

076 END; ! of routine EDTS$TI_FLUSHJOUF I : 

-TITLE FDTST ASL RAUD EDTSTICLRAUD - flush journal file : 

-IDENT \v04-000\ | : 

~-EXTRN EDTSS$SJOU_PUTREC : 

-EXTRN EDTSS$T_TIN_OBUF : 

~EXTRN EDTSS$G_TIN OBUFPOS ; 

~EXTRN EDTS$G_CC_CENT1_LO : 

eEXTRN EDTS$G_CC_CNT1_HI : 

-EXTRN EDTS$$G-JOO_VALTD 3 

-EXTRN EDTSSIATER-ERR : 

| 


761 #1 
762 1 !<BLF/PAGE> 


EDTSTICLRAUD DISTICLRAUD = flush journal file 16-5e Sep-1 4:4 VAX=-11 Bliss-32 V4.0- 
+ he ts EDTSSTICFLUSHIOUFT = flock journal file peer tSRe Pb:8e 88 Patel teRe eee seeSricurauo.euiet™ ¢ 
7 G VAB  EDT$$G_CC_CNT1_LO, R7 ; ; 
§ 6 MOVAB D188 05 PUTREC. R6 : : 
G MOVAB EDTS$G_CC_CNT1_HI, RS : : 
G 1 MOVAB DT$$G_JOO_VALID, R4 : : 
6 E MOVAB EDT$$G TIN-OBUFPOS, R3 : ; 
‘ G ? 3 OVA EDTSSINTER_ERR, R : ; 
00007530 &F : F cHPL EDtsic, CC_CNT1_LO, #30000 : 0724 ; 
2 F CALLS #0, EDTSSINTER_ERR : F 
00007530 8 of 38 18: cABL stake CC_LCNTI-HI, #30000 ; 0725 ; 
3 FB 4 CALLS EDTSSINTER_ERR : ; 
06 AC D 47 2%: MOVL R CORD TYPE, RO + 0727 : 
00000054  &F D1 0004 CMPL RO, #8% : 07 : 
1 BNEQ 7 ; 
00000100 8F of 0084 CPL ype TIN_OBUFPOS, #256 + 0732 : 
62 F 9050 CALLS DISSINTER_ERR : ; 
D 960 3$: TSTL ots 6_TIN_OBUFPOS + 0733 : 
18 0006 BGEO 4s : ; 
ry Q FE 00064 CALLS DISSINTER_ERR : ; 
63 05 00067 4$: TSTL fp ots G_TIN_OBUFPOS + 0735 ; 
06 15 20069 BLEG $ : : 
0 4 €8 00048 BLBS  EDT$$G_yoU VALID 4% ; 
$ 0 FB O0E CALLS #0, EDTSSINATE ERR. : 
64 £9 00071 5$: LBC 3—-s EDF $$G_ JOU. VALTD + 0737 
63 DD 00074 6$: PUSHL EDTS$$G_TIN =OBUF 7Pbs° + 0740 
000000006 9F 00076 PUSHAB EDTS$T-TIN ; 
64 02 FB 0007C CALLS #2 EDTS$y0N~ PUTREC ; 
63 D4 0007F CLRL EDT $$G_TIN_ + 0741 
64 04 00081 CLRL EDT$$G~JOU-V ALID ; 0742 
04 00083 RET : 072 
000000463 = 8F 50 D1 0084 7$: cmPL RO. #67 : 0747 
6E OFF BF 46 0080 mMOVW = #511 JOURNAL RECORD + 0749 
02. AE 67 #2 009 MOVW EDT$$G_CC_CNTT_LO, JOURNAL_RECORD+2 : 0751 
04 AE 65 B 96 MOV EDTSS6_ CC “ENT “HI. JOURNAL ~RECORD+4 ; 073¢ 
6 BD 009A PUSHL : 075 
04 AE F 0009C PUSHAB JURNAL RECORD ; 
66 02 FB 0009F CALLS EDTS$JOU_PUTREC ; 
04 Ong RET : 0727 
62 00 FB OOOA gs: CALLS #0, EDTSSINTER_ERR : 0757 
04 OCOA6 9$: RET : 0760 
; Routine Size: 167 bytes, Routine Base: _EDTSCODE + 0000 


EDTSTICLRAUD DISTICLRAUD - sh journal file 16-5e Sep-1 VAX-11 Bliss-32 V4.0- e 
04-000 EOtts 1 PUsHa0urL ene Journal file ety 9}: tie DISKSVMSMASTER : a EBt sacSricurau. BLI; f79 ua) 
3 7 763 1 END ! of module EDTSTICLRAUD 

; 195 764 «1 

 -y 765 0 ELUDOM 

; PSECT SUMMARY 

; Name Bytes Attributes 

; _EDTSCODE 167 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

$ Library Statistics 

‘pean Leeper e ee  a Symbols -------- Pages Processing 

; File Total Loaded Percent Mapped Time 

; ~$25580UAz8: EDT. SRCJEDT.L32;1 377 5 1 49 00:00.2 

; _S$255$DUA EDT. SRCJPSECTS.L32;1 2 1 50 00:00.1 

3 COMMAND QUALIFIERS 


ety et ELD MET IAG. OPT INI SE) /MOTRACERACEAL SOML 881 TECLAMO/CR OCR IOs TICLAAD MSRC$:TICLRAUD.BLI/UPDATE=(ENH$:TICL 


; Size: 167 gods + 0 data bytes 
3; Run Time: :13.3 

; Elapsed Time: FR -e 

3; Lines/CPU Min: 45 

3 oom Sas 11751 

3; Memor ry Ut : 86 pages 

; Compilation Complete 
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